home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / lib / xprint < prev   
Text File  |  1996-05-22  |  236b  |  12 lines
  1. decimal
  2. 2  constant two
  3. 8  constant eight
  4. 10 constant ten
  5. 16 constant sixteen
  6. : n.    ( n base -- )
  7.     base @ -rot base ! u. base ! ;
  8. : ln.    ( d base -- )
  9.     base @ -rot base ! ul. base ! ;
  10. : x.    ( n -- ) ( print in unsigned hex )
  11.     sixteen n. ;
  12.